#101.4
carambola <- c("abacaxi", "beterraba")
salada <- c"beringela", "batata"

#101.5
load(file="bichos.rdata")
ls()
rm("temp1","temp2","temp3")
save(anfibios,aves,mamiferos, file="bichos01.rdata")

#101.6
hoje <- Sys.Date()
tri <- "21/06/70"
data_copa <- as.Date(tri,format="%d/%m/%y")
data_hoje <- as.Date(hoje,format="%d/%m/%y")
dif <- data_hoje-data_copa
outrodia <- hoje+43